home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / mxc / aaint_1.dir / 00006.ls < prev    next >
Encoding:
Text File  |  1995-05-04  |  2.3 KB  |  76 lines
  1. global gSlot, gPrefPath, gsliderbar, gVolume, XJack, xPal, gFirstTimeIn, gdirmovie, gButNo, Gx, gReturnKey, gFirstTimeInM, gFirstTimeInA
  2.  
  3. on startMovie
  4.   unLoadCast()
  5.   unLoadCast()
  6.   set gFirstTimeInM to 1
  7.   set gFirstTimeInA to 1
  8.   set gdirmovie to "AAINT.DIR"
  9.   set gFirstTimeIn to 1
  10.   if the machineType = 256 then
  11.     openXLib("fileIO.dll")
  12.     openXLib("XPALETTE.dll")
  13.     set xPal to XPALETTE(mnew)
  14.     openXLib("xmisc.dll")
  15.     set lFred to XMisc(mnew)
  16.     set lSysFolder to lFred(mGetSysDir)
  17.     closeXLib("xmisc.dll")
  18.     delete char the number of chars in lSysFolder - 6 to the number of chars in lSysFolder of lSysFolder
  19.     set gPrefPath to lSysFolder & "\SFF02.ini"
  20.   else
  21.     openXLib("XPALETTE")
  22.     set xPal to fixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageBottom)
  23.     openXLib("sysfold.xcmd")
  24.     set lSysFolder to systemFolder()
  25.     closeXLib("sysfold.xcmd")
  26.     set gPrefPath to lSysFolder & "Preferences:SFF02 prefs"
  27.   end if
  28.   set XJack to FileIO(mnew, "read", gPrefPath)
  29.   if XJack = -43 then
  30.     set Xwrite to FileIO(mnew, "write", gPrefPath)
  31.     Xwrite(mWriteString, "1255")
  32.     Xwrite(mdispose)
  33.     set XJack to FileIO(mnew, "read", gPrefPath)
  34.   end if
  35.   set lPrefFile to XJack(mReadFile)
  36.   if lPrefFile = EMPTY then
  37.     if the machineType = 256 then
  38.       alert("Please install Interactive Fly Fishing")
  39.       quit()
  40.     else
  41.       alert("No pref file")
  42.       quit()
  43.     end if
  44.   else
  45.     set gsliderbar to char 1 of lPrefFile
  46.     set gsliderbar to integer(gsliderbar)
  47.     set gVolume to char 2 to 4 of lPrefFile
  48.     set gVolume to integer(gVolume)
  49.     if the number of lines in lPrefFile = 1 then
  50.       put field "Preferences-BU" into field "Preferences"
  51.     else
  52.       put lPrefFile into field "Preferences"
  53.       delete line 1 of field "Preferences"
  54.     end if
  55.   end if
  56. end
  57.  
  58. on writeMe
  59.   put field (gSlot + 130) into line (gSlot * 3) - 2 of field "Preferences"
  60.   put field (gSlot + 140) into line (gSlot * 3) - 1 of field "Preferences"
  61.   put field (gSlot + 150) into line gSlot * 3 of field "Preferences"
  62. end
  63.  
  64. on writeFile
  65.   set Xwrite to FileIO(mnew, "write", gPrefPath)
  66.   put gsliderbar & gVolume & RETURN before line 1 of field "Preferences"
  67.   set lWritePrefs to field "Preferences"
  68.   Xwrite(mWriteString, lWritePrefs)
  69.   Xwrite(mdispose)
  70.   delete line 1 of field "Preferences"
  71. end
  72.  
  73. on closeMovie
  74.   XJack(mdispose)
  75. end
  76.